COS Tq*\ 

AStRo RAS.IC 

LOWERCASE = 1-BYTE KEYPAD WORDS* UNDERSCORES 
= SPACES* 1066 CHARACTERS 

1001 *CUSTOM_GRAPHICS 

1002 *0ERSI0N_3* 1 

1003 *BY_RICH__TIETJENS 
1010 goto 1030 

1020 %(Y)=0{ MU=0 *, Y= Y+ W ,* retu rn 

1030 clear {NT=1 JX=0{ input * ASSY_ADDR"Y, "BYT 

ES WIDE"8{R=Y{Z=1020{W=2 

1035 input "DOTS^HIGH'H, , TABLE_ADDR , T ? "#_CHA 
RS’N 

1037 print #6, “TABLE_ REQUIRES* »BxHxN, " BYTES 
LAST ADDRESS :*,T+8xHxN 

1038 for S=0to 8xHxN,‘@<S)=0{MU=S}next SJS-0 

1039 for D=0to 999 { next D 

1040 clear {box 0x20-73, 32-Hx5* 2 , 8x40+ 1 ,Hx5+ 

1,3 

1045 for U=lto H?for C=lto 8x8 {box Cx5-75,35 
~Ux5,4,4»3{next C 5 next U 
1047 for I=lto N 
1050 C=~70{U=30 

1060 box C,U,4,4,3,*box C,U,4,4,3 
1070 box C , U , 4 , 4 , TR ( 1 ) x ( ( KN ( 1 ) <0 ) + 1 ) 

1080 C=C+JX( 1 )x5 JU=U+JY ( 1 )x5? if C>Qx40-75if 
TR( 1 )goto 1100 
1090 goto 1060 

1100 L=128{for U=lto H{for C=lto 8x8 

1110 e? ( S ) =e ( S ) +PX ( Cx5-75 , 35-Ux5 ) xL { L=L*2 { i f 
L=0L=128 JS-S+1 
1115 MU=G(S) 

1120 next C{next U{next I 

1200 0=-43{gosub Z{ 0=6965 {gosub Z 

1210 0=10240 Jgosub Z{0=R+10{gosub Z 

1220 0=-13871 {gosub Z{W=1 {0=112{gosub Z 

1230 W=2 { 0=R+ 1 6 { g osub Z{0=128{gosub Z 

1240 W=l{0=48?gosub Z{0=12B{gosub Z 

1250 0=8x8 {gosub Z{0=H{ gosub Z 

1260 0=8{gosub Z{0=H{gosub Z 

1270 W=2{0=T{gosub Z{W=1{Y=T 

1280 for S=0to 8xHxN{0=@(S> {gosub ZJnext S 

1300 clear {for l=0to N~1 {%(R+3)=10240+Ix8x8 

+1 {%(R+13) =128+1 {CALLR 

1310 next I{CY=40 

1320 print "OK?" { if KP#13goto 1320 

1330 input *FILE._# , F{print , START_TAPE_,S_PRE 

SS “GO* 

1340 if KP#13goto 1340 

1350 J print {NT=2{print {T0=F*256{T0=RM{prin 
t 

1360 for X=Rto R+22step 2{print #0, *%( * ,X, * ) 
=’ ,%(X) {next X 

1370 for X=Tto T+BxHxNstep 2{print *0,’%<*,X 

, * > = ' ,%(X) {next X 

1380 print “J return { run 

1390 {return ?*END 




1001 .CUSTOM GRAPHICS 

1002 . UERSION 3.1 

1003 .BY RICH TIETJENS 
1010 GOTO 1030 

1020 %CY)=0;MU=0;Y=Y+W; RETURN 

1030 CLEAR ;NT=1;X=0; INPUT "ASSY ABDR"Y, "BYTES WIDE" Q; R=Y; Z=1020 ; W=2 
1035 INPUT "DOTS HIGH”H, "TABLE ADDR”T, "# CHARS ” N 

1037 PRINT #S, “TABLE REQUIRES" , QbHbN, “ BYTESLAST ADDRESS: " , T+QbHbN 

1038 FOR S=0TO QbHbN; @<S)=0;MU=S; NEXT S;S=0 

1039 FOR D=0T 0 999; NEXT D 

1040 CLEAR ; BOX Qb20-73 , 32-Hb5c2 , Qb40+1 , Hb5+1 , 3 

1045 FOR U=1T0 H; FOR C=1T0 8bQ;B0X Cb5-75, 35-Ub5, 4 , 4 , 3; NEXT C ; NEXT U 
1047 FOR I=1T0 N 
1050 C=-70; U=30 

1060 BOX C, U, 4, 4, 3; BOX C,U,4,4,3 
1070 BOX C,U,4,4,TRCl)b(CKN(lX0) + l) 

1080 C=C+JXC 1 )b5;U=U+JYC 1 )b5; IF C>Qb40-75IF TR( 1 )GOTO 1100 
1090 GOTO 1060 

1100 L=128; FOR U=1T0 H;FOR C=1T0 8bQ 

1110 @(S)=@(S)+PXCCb5-7S,35-Ub5)bL;L=Lc2; IF L=0L=128 ; S=S+1 
1115 MU=@CS) 

1120 NEXT C ; NEXT U ; NEXT I 

1200 U=-43; GOSUB Z; 0=6965; GOSUB Z 

1210 0=10240; GOSUB Z; O=R+10; GOSUB Z 

1220 0=- 13871; GOSUB Z ; W=1 ; 0=112; GOSUB Z 

1230 W=2 ; 0=R+ 1 6 ; GOSUB Z; 0=128; GOSUB Z 

1240 W=l; 0=48; GOSUB Z; 0=128; GOSUB Z 

1250 0=Qb8; GOSUB Z;0=H; GOSUB Z 

1260 0=Q; GOSUB Z;U=H; GOSUB Z 

1270 W=2;0=T; GOSUB Z;W=1;Y=T 

1280 FOR S=0TO QbHbN ; 0=@K S ); GOSUB 2 ; NEXT S 

1300 CLEAR ; FOR I=0TO N- 1 ; R+3 ) = 10240+IbQb8+.t ; Xt R+13 ) = 128+I ; CALLR 

1310 NEXT I ; CY=40 

1320 PRINT "OK?"; IF KP#13GOTO 1320 

1330 INPUT "FILE #“F;PRINT J START TAPE & PRESS "GO" 

1340 IF KP#13G0T0 1340 

1350 : PRINT ;NT=2; PRINT ; T0=Fc25G; TO=RM; PRINT 
1360 FOR X=RTO R+22STEP 2; PRINT #0 , "%C ", X ,")=",%( X ) ; NEXT X 
1370 FOR X=TTO T+QbHbNSTEP 2; PRINT #0 X ,")=", %C X ); NEXT X 
1380 PRINT *: RETURN ; RUN 
1390 : RETURN ; . END 
> 

BALLY BASIC 



